home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailable.arc / ML2SORT.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  896 b   |  38 lines
  1. * ML2SORT.CMD
  2. ERASE
  3. ?'                   INDEX PROGRAM'
  4. ?
  5. ?'              0 - EXIT TO MAIN MENU'
  6. ?'              1 - INDEX BY NAME (SORT FIELD)'
  7. ?'              2 - INDEX BY ZIP CODE'
  8. ?'              3 - INDEX BY TYPE'
  9. ?'              4 - INDEX BY EXPIRE'
  10. ?
  11. ?' Enter desired action'
  12. WAIT TO ACTION
  13. IF ACTION='0'
  14.         SET PRINT OFF
  15.         SET TALK ON
  16.         DO ML2
  17. ENDIF
  18. IF ACTION='1'
  19.         INDEX ON SORT TO ML2SSORT
  20.         USE &BASE INDEX ML2SSORT
  21. ENDIF
  22. IF ACTION='2'
  23.         INDEX ON ZIP TO ML2SZIP
  24.         USE &BASE INDEX ML2SZIP
  25. ENDIF
  26. IF ACTION='3'
  27.         INDEX ON TYPE TO ML2STYPE
  28.         USE &BASE INDEX ML2STYPE
  29. ENDIF
  30. IF ACTION='4'
  31.         INDEX ON EXPIRE TO ML2SEXP
  32.         USE &BASE INDEX ML2SEXP
  33. ELSE DO ML2SORT
  34. ENDIF
  35. ENDDO
  36. DO ML2
  37. * END
  38.